floating Point Arithm etic Package 

The Floating Package is a group of arithmetic subroutines 
in tfM.ch numbers are represented in the fona f x 2^, £ is a 
one»s complement 18 bit fraction vrith the binary point beti^een 
bits and 1. e is a one's complement 18 bit integer exponent 
of 2. The largest magnitude numbers that can be represented are 

A number is normalized ^en | ^ !f j < 1. All the floating 
routines, except the two floating unnoi^alized adds, return a 
noiroalized answer. The fraction appears in the ac, the exponent 
in the io. Description of routines: 

Floating Add - Jda fad 

One argument should appear in the ac-io» The other 
argument should have the addresses, direct or indirect, of the 
fraction and exponent in the two registers following the ^Jda fad. 

lac fl /Load first argument. 

lio el 

Jda fad /Call floating add. 

f2 /address of second fraction 

©2 /address of exponent for second fraction 

<5ac /Control returns to here with 

/normalized answer in ac-io* 

aoating^jultlBlY - jda ifep 

lac fl /Load multiplicand. 

lio el 

Jda ftap /Call floating multiply 

f2 /address of fraction of multiplier 

«2 /address of exponent of multiplier 

<5ac /Conti^ol returns to here with normalized 

/answer in ac-lo. 
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aoatlng p iyide - Jda fdv 

lac fl /Load first argument,, 

llo el 

Jda fdv /Call divide* 

f2 /addresses for divisor, hit vjill occur 

e2 /if f2«0. 

<5ac /Control returns here with normalized 

/answer in ac-lo* 

gloating Square Root - Jda f sq 

Execution time ^ 3^5 /i sec« 

lac f /Load argument; argument must be normalised 
lio e 

Jda fsq /Call square root; hit will occur unless 

/f^O, 
dac /Control returns here with normalized 

/answer in ac-io. 

Floatihia: Ix)g._ base 2 ~ Jda log 

lac f /Load argument, 
lio e 

Jda log /Call log; hit will occur unless f > 0. 
^ac /Control returns here with noitsalized 

/answer in ac-io, 

gilo^ting Reciprocal - Jda rep 

lac f /Load argument • 
lio e 

Jda rep /Gall reciprocal; hit will occur in fdh 

/if f«0. 
^ac /Control returns here with normalized 

/answer in ao-io. 



Ploatln^^Insut^- Jda fip 



Jda flp 
Jsp 



dac 



/Call input; ac-io don*t matter. 

/This instruction is repeatedly 

/executed (x ct ) in order to get the input 

/characters. The jsp (or Jda) could call 

/a typewriter or reader listen loop 

/subroutine which should return the 

/input character's in the 

/1cm bits of the io« 

/Control returns here with the answer 

/in the ac-io after the first illegal 

/character. 



Legal characters for fip 

X resets routine and starts foiiaing a new number. 

Spaces and code deleted characters are ignored. 

Legal characters are: •, e, 0-9* -* ^$ and space. 

The illegal character that tenainated the number is in 
register fip . 

Input examples: 

6.9el 

690 e-1234 

-6.9 e 17 



Ploatiag Output - jda fop 



lac f 

lio e 
Jda fop 
tyo 
dac 



/Load argument, 



/Call output. 

/an executed instruction (xct) for output 
/Control returns here with normalized 
/floating point input quantity. 

The routine generates parity for each character, so the 

executed output instruction could be a ppa or a call to an output 

subroutine . 



The output format is • 71000 e2, 5 significant figures a 

Floating; U nno rmallged Add - Jda fua 

lac fl /Load first arguments 

lio el 

Jda fua /Call unnormali zed add, 

f2 /addresses of second argiasient 

e2 

The subroutine returns with a 35 t>it number in the ac-io 

with the binary point after the bit number equal to the larger 

exponent of the two arguments • If the addition produces an 

overflow^ the larger exponent is incremented by !♦ In any case, 

the larger exponent, perhaps incremented, appears in fac+i. 

Examples for subi»outine: 

lac (200000 /| 

Ho (0 
Jda fua 

(0 /zero vjith exponent to cause the number 

(17« /to be fixed. 

At return ac,lo equals 0, 400000 » 

lac (0 /O 
lio (16. 
Jda fua 



(200000 A 



(0 
At return ac,io equals 1,0» 

gloating Unnormaljged Ad d and Round - Jda fur 

lac fi /Load argument 

Ho el 

Jda fur /Call unnormaltzed add and round 
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f2 /addresses of second argument 

e2 

dac /Conti»ol returns he3?e with fraction 

/In ac and exponent in io. 

This routine is the same as fad except that the answer is 

not normalized^ The larger exponent returns in the io, uinless 

overflow occurred .» Then the larger exponent +1 returns in the 

io« Example: 

lac (300000 /3 

lio (2 

jda fur /Call subroutine* 

(0 /zero with exponent to 

(17« /cause the ansx^rer to be fixed. 

At return, ac,io equals 3,17. 

]^lp^tj^.ng Exponentiation ~ jda f2x 

This subroutine calculates 2^. Execution time ~ 1.3 m sec* 

lac f /Load argument ♦ 
lio e 

jda f2x /Call subroutine. 

dac /Control z»etums to here with normalized 

/answer in ac-io# 
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